home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VCM / VCM.MDB / VcmComponentContainer / 06_Cabinet / Text.Dsr < prev    next >
Encoding:
Text File  |  1998-05-18  |  1.3 KB  |  38 lines
  1. VERSION 5.00
  2. Begin {90290CCD-F27D-11D0-8031-00C04FB6C701} Text 
  3.    ClientHeight    =   4770
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   5985
  7.    _ExtentX        =   10557
  8.    _ExtentY        =   8414
  9.    SourceFile      =   "C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\1033\Samples\VB98\DHShowMe\Text.htm"
  10.    BuildFile       =   "c:\dhtml\Text.htm"
  11.    BuildMode       =   0
  12.    TypeLibCookie   =   152
  13.    AsyncLoad       =   0   'False
  14.    id              =   "DHTMLPage1"
  15.    ShowBorder      =   -1  'True
  16.    ShowDetail      =   -1  'True
  17.    AbsPos          =   0   'False
  18. End
  19. Attribute VB_Name = "Text"
  20. Attribute VB_GlobalNameSpace = False
  21. Attribute VB_Creatable = True
  22. Attribute VB_PredeclaredId = False
  23. Attribute VB_Exposed = True
  24.  
  25. Private Function changeback_onclick() As Boolean
  26. 'Use the InnerHTML property of the changeme element to display
  27. 'the original text within the existing HTML tag.
  28.     changeme.innerHTML = ">This line will change.<<"
  29. End Function
  30.  
  31. Private Function changetext_onclick() As Boolean
  32. 'Use the InnerHTML property of the changeme element to replace
  33. 'the existing text with the value the user has entered in the
  34. 'changewith field.
  35.     changeme.innerHTML = changewith.Value
  36.     
  37. End Function
  38.